home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Developer Source 7
/
developer source - volume 7.iso
/
delph
/
jan96
/
rippf102.gif
< prev
next >
Graphics Interchange Format
|
1996-11-15
|
12KB
|
520x477
|
4-bit (8 colors)
Labels:
text
|
screenshot
|
display
|
software
|
number
|
font
OCR:
LOC.PAS procedure TForm1. Button1Click (Sender: TObject) ; var myBookmark : TBookmark; begin myBookmark := Table1. GetBookmark; {get current position} Table1. DisableControls; Table1.First; while not Table1. EOF do {search for a match} begin if Table1. FieldByName ('Name of Pet') . AsString = Edit1. Text then begin myBookmark := Table1. Get Bookmark; Table1 . GoToBookmark (myBookmark) ; Table1. FreeBookmark (myBookmark) ; Table1. EnableControls; Exit; end; Table1. Next end; Table1. GoToBookmark (myBookmark) ; Table1. FreeBookmark (myBookmark) ; Table1. EnableControls; end; 56: 49 Modified Insert \Loc
